type nul > 64.txt
for /f "tokens=*" %a in ('reg query HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall') do (
  for /f "tokens=1,2,*" %b in ('reg query "%a" /v UninstallString ^| find /I "UninstallString"') do (
    if /i %b==UninstallString (
      echo %d >> c:\users\%username%\desktop\64.txt
    )
  )
)
type nul > 32.txt
for /f "tokens=*" %a in ('reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall') do (
  for /f "tokens=1,2,*" %b in ('reg query "%a" /v UninstallString ^| find /I "UninstallString"') do (
    if /i %b==UninstallString (
      echo %d >> c:\users\%username%\desktop\32.txt
    )
  )
)